home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / REAL2MON.DEF < prev    next >
Text File  |  1989-01-18  |  693b  |  20 lines
  1. DEFINITION MODULE Real2Mon;
  2.  
  3. (*       Copyright (c) 1987, 1989 - Coronado Enterprises         *)
  4.  
  5. EXPORT QUALIFIED WriteReal;
  6.  
  7. (* This procedure allows writing to the monitor in a fully       *)
  8. (* formatted manner (i.e. XXXXXX.XXX) instead of the scientific  *)
  9. (* notation which is available with most librarys.               *)
  10.  
  11. PROCEDURE WriteReal(DataOut  : REAL;
  12.                     FieldSize : CARDINAL;
  13.                     Digits    : CARDINAL);
  14.           (* Writes a REAL to the monitor with "FieldSize" total *)
  15.           (* columns and "Digits" significant places after the   *)
  16.           (* decimal point.                                      *)
  17.  
  18. END Real2Mon.
  19.  
  20.